home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Buyer 2004 January
/
Computer Buyer January 2004.iso
/
Extras
/
Todolist
/
setup.exe
/
{app}
/
todolist.exe
/
0
/
RCDATA
/
TFRMPRINT
/
TFRMPRINT.txt
Wrap
Text File
|
2002-12-17
|
8KB
|
359 lines
object FrmPrint: TFrmPrint
Left = 470
Top = 247
HelpContext = 11
BorderStyle = bsDialog
Caption = 'Print Task List'
ClientHeight = 343
ClientWidth = 529
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -5
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = True
OnCreate = FormCreate
OnHide = FormHide
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 16
Top = 16
Width = 197
Height = 281
BevelOuter = bvLowered
Color = clWhite
TabOrder = 4
object PntBxPrintPreview: TPaintBox
Left = 1
Top = 1
Width = 195
Height = 279
Align = alClient
Color = clWhite
ParentColor = False
OnPaint = PntBxPrintPreviewPaint
end
end
object BtBtnPrint: TBitBtn
Left = 16
Top = 308
Width = 89
Height = 25
Caption = '&Print...'
TabOrder = 1
OnClick = BtBtnPrintClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000000000
000D006666666666660006666666666666600600000000000060066666666666
96600066666666669600D00000000000000DDD0777777777770DD0077CCC7777
70DDD0777777CCC770DDD0777777777770DDD077CCC77777000DD077777CCC77
0EE0D007777777770EE0DD00000777770E0DDDDDDDD0000000DD}
end
object BtBtnCancel: TBitBtn
Left = 424
Top = 308
Width = 89
Height = 25
TabOrder = 3
Kind = bkCancel
end
object BitBtn1: TBitBtn
Left = 124
Top = 308
Width = 89
Height = 25
TabOrder = 2
Kind = bkHelp
end
object PCPrintOptions: TPageControl
Left = 224
Top = 8
Width = 289
Height = 289
ActivePage = TSGeneral
TabIndex = 0
TabOrder = 0
object TSGeneral: TTabSheet
Caption = 'General'
object ChkBxOnlyPrintComplete: TCheckBox
Left = 16
Top = 32
Width = 153
Height = 17
Caption = 'Only print incomplete tasks.'
TabOrder = 0
OnClick = ChkBxOnlyPrintCompleteClick
end
object ChkBxPrintTaskStatus: TCheckBox
Left = 16
Top = 64
Width = 153
Height = 17
Caption = 'Strike-out completed tasks.'
TabOrder = 1
OnClick = ChkBxPrintTaskStatusClick
end
object ChkBxPrintDate: TCheckBox
Left = 16
Top = 96
Width = 145
Height = 17
Caption = 'Print date and time.'
TabOrder = 2
Visible = False
OnClick = ChkBxPrintDateClick
end
object CheckBox4: TCheckBox
Left = 16
Top = 128
Width = 121
Height = 17
Caption = 'Size task list to page.'
TabOrder = 3
Visible = False
OnClick = CheckBox4Click
end
end
object TSFontandSize: TTabSheet
Caption = 'Font && Size'
object Label1: TLabel
Left = 16
Top = 16
Width = 55
Height = 13
Caption = 'Font Name:'
end
object Label2: TLabel
Left = 200
Top = 16
Width = 47
Height = 13
Caption = 'Font Size:'
end
object Label3: TLabel
Left = 40
Top = 224
Width = 215
Height = 13
Caption = '(Disable if opening this dialog box is too slow.)'
end
object lbxFontName: TListBox
Left = 16
Top = 32
Width = 169
Height = 97
ItemHeight = 13
TabOrder = 0
OnClick = lbxFontNameClick
OnDrawItem = lbxFontNameDrawItem
OnMeasureItem = lbxFontNameMeasureItem
end
object cbxFontSize: TComboBox
Left = 200
Top = 32
Width = 65
Height = 21
ItemHeight = 13
MaxLength = 2
TabOrder = 1
OnChange = cbxFontSizeChange
Items.Strings = (
'8'
'9'
'10'
'11'
'12'
'14'
'16'
'18'
'20'
'22'
'24'
'26'
'28'
'36'
'48'
'72')
end
object cbxDrawAllFonts: TCheckBox
Left = 16
Top = 208
Width = 97
Height = 17
Caption = 'Draw all fonts.'
TabOrder = 2
OnClick = cbxDrawAllFontsClick
end
object pnlFontPreview: TPanel
Left = 16
Top = 144
Width = 249
Height = 41
BevelOuter = bvLowered
Caption = 'ABC def 123'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
end
object TSMargins: TTabSheet
Caption = 'Margins'
object Label4: TLabel
Left = 16
Top = 44
Width = 21
Height = 13
Caption = 'Left:'
end
object Label5: TLabel
Left = 16
Top = 76
Width = 28
Height = 13
Caption = 'Right:'
Visible = False
end
object Label6: TLabel
Left = 16
Top = 108
Width = 22
Height = 13
Caption = 'Top:'
end
object Label7: TLabel
Left = 16
Top = 140
Width = 36
Height = 13
Caption = 'Bottom:'
end
object Label8: TLabel
Left = 16
Top = 16
Width = 65
Height = 13
Caption = 'Margins (mm):'
end
object pnlMarginPagePreview: TPanel
Left = 168
Top = 16
Width = 98
Height = 140
BevelOuter = bvLowered
Color = clWhite
TabOrder = 4
object shpMarginPviewExampleText: TShape
Left = 16
Top = 16
Width = 65
Height = 113
Brush.Style = bsClear
Pen.Color = clGray
Pen.Style = psDot
end
end
object edtLeftMarginVal: TEdit
Left = 56
Top = 40
Width = 33
Height = 21
MaxLength = 3
TabOrder = 0
Text = '0'
OnChange = edtLeftMarginValChange
end
object udLeftMarg: TUpDown
Left = 89
Top = 40
Width = 15
Height = 21
Associate = edtLeftMarginVal
Min = 0
Position = 0
TabOrder = 5
Wrap = False
end
object edtRightMarginVal: TEdit
Left = 56
Top = 72
Width = 33
Height = 21
MaxLength = 3
TabOrder = 1
Text = '0'
Visible = False
OnChange = edtRightMarginValChange
end
object edtTopMarginVal: TEdit
Left = 56
Top = 104
Width = 33
Height = 21
MaxLength = 3
TabOrder = 2
Text = '0'
OnChange = edtTopMarginValChange
end
object edtBottomMarginVal: TEdit
Left = 56
Top = 136
Width = 33
Height = 21
MaxLength = 3
TabOrder = 3
Text = '0'
OnChange = edtBottomMarginValChange
end
object udRightMarg: TUpDown
Left = 89
Top = 72
Width = 15
Height = 21
Associate = edtRightMarginVal
Min = 0
Position = 0
TabOrder = 6
Visible = False
Wrap = False
end
object udTopMarg: TUpDown
Left = 89
Top = 104
Width = 15
Height = 21
Associate = edtTopMarginVal
Min = 0
Position = 0
TabOrder = 7
Wrap = False
end
object udBottomMarg: TUpDown
Left = 89
Top = 136
Width = 15
Height = 21
Associate = edtBottomMarginVal
Min = 0
Position = 0
TabOrder = 8
Wrap = False
end
end
end
object PrintDialog1: TPrintDialog
Left = 360
Top = 304
end
end